﻿Namespace UI

	Public Class PasteDialog

		Public Sub New(CueType As Cues.Types)

			' This call is required by the designer.
			InitializeComponent()

			' Add any initialization after the InitializeComponent() call.
			If CueType = Cues.Types.Audio Then
				AudioSettings.Visibility = System.Windows.Visibility.Visible
			ElseIf CueType = Cues.Types.Transport Then
				TransportSettings.Visibility = System.Windows.Visibility.Visible
			ElseIf CueType = Cues.Types.Stack Then
				StackSettings.Visibility = System.Windows.Visibility.Visible
			End If
		End Sub

		Public Sub Cancel_Click(sender As Object, e As RoutedEventArgs)
			Me.DialogResult = False
			Me.Close()
		End Sub

		Public Sub OK_Click(sender As Object, e As RoutedEventArgs)
			Me.DialogResult = True
			Me.Close()
		End Sub

	End Class
End Namespace